home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_09_1986_Transactor_Publishing.d64 / line calc (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  88 lines
  1. 0 rem line calc (7/85)                :
  2. 1 :
  3. 2 rem 2 statements,  1 function
  4. 3 :
  5. 4 rem keyword characters: 13
  6. 5 :
  7. 6 rem keyword   routine   line   ser #
  8. 7 rem s/jump    jum       8846    130
  9. 8 rem s/call    cal       8870    131
  10. 9 rem f/line(   line      8902    132
  11. 10 :
  12. 11 rem u/usfp (2620/006)
  13. 12 :
  14. 13 rem ================================
  15. 14 :
  16. 136 .asc "jum[208]cal[204]"
  17. 621 .asc "line": .byte $a8
  18. 1136 .word jum-1,cal-1
  19. 1621 .word line-1
  20. 2620 usfp ldx #0
  21. 2622 stx $0d
  22. 2624 sta $62
  23. 2626 sty $63
  24. 2628 ldx #$90
  25. 2630 sec
  26. 2632 jmp $bc49
  27. 2634 ;
  28. 8846 jum jsr $b08b
  29. 8848 bit $0e
  30. 8850 bpl jm1
  31. 8852 ldy #0
  32. 8854 lda ($47),y
  33. 8856 sta $60
  34. 8858 iny
  35. 8860 lda ($47),y
  36. 8862 sec
  37. 8864 jmp $a8c7
  38. 8866 jm1 jmp $ad99
  39. 8868 ;
  40. 8870 cal lda #3
  41. 8872 jsr $a3fb
  42. 8874 lda $7b
  43. 8876 pha
  44. 8878 lda $7a
  45. 8880 pha
  46. 8882 lda $3a
  47. 8884 pha
  48. 8886 lda $39
  49. 8888 pha
  50. 8890 lda #$8d
  51. 8892 pha
  52. 8894 jsr $79
  53. 8896 jsr jum
  54. 8898 jmp $a7ae
  55. 8900 ;
  56. 8902 line cmp #$89
  57. 8904 bne line1
  58. 8906 jsr $73
  59. 8908 line1 lda #2
  60. 8910 jsr $a3fb
  61. 8912 lda $14
  62. 8914 pha
  63. 8916 lda $15
  64. 8918 pha
  65. 8920 lda $5f
  66. 8922 pha
  67. 8924 lda $60
  68. 8926 pha
  69. 8928 jsr $ad8a
  70. 8930 jsr $b7f7
  71. 8932 lda #0
  72. 8934 sta $61
  73. 8936 jsr $a613
  74. 8938 bcc line2
  75. 8940 ldy $5f
  76. 8942 lda $60
  77. 8944 line2 jsr usfp
  78. 8946 pla
  79. 8948 sta $60
  80. 8950 pla
  81. 8952 sta $5f
  82. 8954 pla
  83. 8956 sta $15
  84. 8958 pla
  85. 8960 sta $14
  86. 8962 jmp $aef7
  87. 8964 ;
  88.